home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Presen…rary 6 (Reseller Edition) / Apple Ref. & Pres. Lib.v6.0.toast / pc / 3-Presentations / Apple Demos / Training / HyperCard 2.0 Training / •HC 2.0-2 / card_6240.txt < prev    next >
Text File  |  1990-08-07  |  6KB  |  316 lines
  1. -- card: 6240 from stack: in.0-2
  2. -- bmap block id: 6558
  3. -- flags: 0000
  4. -- background id: 10385
  5. -- name: student.2
  6. ----- HyperTalk script -----
  7. on closeCard
  8.   if icon of btn "switch" is 282 then click at loc of btn "switch"
  9. end closeCard
  10.  
  11. on calculate
  12.   get char 1 of card field "EMF"
  13.   if it="+" then
  14.     delete char 1 of card field "EMF"
  15.   end if
  16.   put card field "EMF" into E
  17.  
  18.   get char 1 of card field "R1"
  19.   if it="+" then
  20.     delete char 1 of card field "R1"
  21.   end if
  22.   put card field "R1" into R1
  23.   put abs(R1) into R1
  24.   put R1 into card field "R1"
  25.  
  26.   get char 1 of card field "R2"
  27.   if it="+" then
  28.     delete char 1 of card field "R2"
  29.   end if
  30.   put card field "R2" into R2
  31.   put abs(R2) into R2
  32.   put R2 into card field "R2"
  33.  
  34.   if E=0 then
  35.     send zeroall
  36.     exit calculate
  37.   end if
  38.  
  39.   if R1=0 and R2=0 then
  40.     put "zap" into card field "A1"
  41.     put 0 into card field "V1"
  42.     put 0 into card field "V2"
  43.     put 0 into card field "V3"
  44.     exit calculate
  45.   end if
  46.  
  47.   put E/(R1+R2) into I
  48.   put I*R1 into V1
  49.   put I*R2 into V2
  50.   set numberFormat to "0.000"
  51.   put I into card field "A1"
  52.   put V1 into card field "V1"
  53.   put V2 into card field "V2"
  54.   put E*1 into card field "V3"
  55.  
  56. end calculate
  57.  
  58. --on closeField
  59. --set icon of btn "switch" to "open circuit"
  60. --send zeroall
  61. --end closeField
  62.  
  63. on zeroall
  64.   put 0 into card field "A1"
  65.   put 0 into card field "V1"
  66.   put 0 into card field "V2"
  67.   put 0 into card field "V3"
  68. end zeroall
  69.  
  70.  
  71.  
  72. -- part 2 (button)
  73. -- low flags: 00
  74. -- high flags: 0000
  75. -- rect: left=336 top=137 right=171 bottom=375
  76. -- title width / last selected line: 0
  77. -- icon id / first selected line: 28757 / 28757
  78. -- text alignment: 1
  79. -- font id: 0
  80. -- text size: 12
  81. -- style flags: 0
  82. -- line height: 16
  83. -- part name: switch
  84. ----- HyperTalk script -----
  85. on mouseUp
  86.   if icon of me is 28757 then
  87.     set icon of me to "close circuit"
  88.     calculate
  89.   else
  90.     set icon of me to "open circuit"
  91.     zeroall
  92.   end if
  93. end mouseUp
  94.  
  95.  
  96.  
  97. -- part 3 (field)
  98. -- low flags: 00
  99. -- high flags: 0000
  100. -- rect: left=163 top=109 right=122 bottom=226
  101. -- title width / last selected line: 0
  102. -- icon id / first selected line: 0 / 0
  103. -- text alignment: 65535
  104. -- font id: 3
  105. -- text size: 9
  106. -- style flags: 256
  107. -- line height: 12
  108. -- part name: EMF
  109. ----- HyperTalk script -----
  110. on closeField
  111.   if icon of cd btn "Switch" is not 28757 then calculate
  112. end closeField
  113.  
  114.  
  115.  
  116. -- part 4 (field)
  117. -- low flags: 01
  118. -- high flags: 0002
  119. -- rect: left=123 top=140 right=152 bottom=159
  120. -- title width / last selected line: 0
  121. -- icon id / first selected line: 0 / 0
  122. -- text alignment: 65535
  123. -- font id: 3
  124. -- text size: 8
  125. -- style flags: 0
  126. -- line height: 10
  127. -- part name: A1
  128. ----- HyperTalk script -----
  129. on mouseUp
  130.   if 3 = 4 then
  131.   end if
  132. end mouseUp
  133.  
  134.  
  135.  
  136.  
  137. -- part 5 (field)
  138. -- low flags: 01
  139. -- high flags: 0002
  140. -- rect: left=228 top=164 right=176 bottom=266
  141. -- title width / last selected line: 0
  142. -- icon id / first selected line: 0 / 0
  143. -- text alignment: 65535
  144. -- font id: 3
  145. -- text size: 8
  146. -- style flags: 0
  147. -- line height: 10
  148. -- part name: V3
  149.  
  150.  
  151. -- part 6 (field)
  152. -- low flags: 00
  153. -- high flags: 0000
  154. -- rect: left=186 top=203 right=216 bottom=221
  155. -- title width / last selected line: 0
  156. -- icon id / first selected line: 0 / 0
  157. -- text alignment: 65535
  158. -- font id: 3
  159. -- text size: 9
  160. -- style flags: 256
  161. -- line height: 12
  162. -- part name: R1
  163. ----- HyperTalk script -----
  164. on closeField
  165.   if icon of cd btn "Switch" is not 28757 then calculate
  166. end closeField
  167.  
  168.  
  169.  
  170. -- part 7 (field)
  171. -- low flags: 00
  172. -- high flags: 0000
  173. -- rect: left=276 top=203 right=216 bottom=311
  174. -- title width / last selected line: 0
  175. -- icon id / first selected line: 0 / 0
  176. -- text alignment: 65535
  177. -- font id: 3
  178. -- text size: 9
  179. -- style flags: 256
  180. -- line height: 12
  181. -- part name: R2
  182. ----- HyperTalk script -----
  183. on closeField
  184.   if icon of cd btn "Switch" is not 28757 then calculate
  185. end closeField
  186.  
  187.  
  188.  
  189. -- part 8 (field)
  190. -- low flags: 01
  191. -- high flags: 0002
  192. -- rect: left=183 top=262 right=274 bottom=221
  193. -- title width / last selected line: 0
  194. -- icon id / first selected line: 0 / 0
  195. -- text alignment: 65535
  196. -- font id: 3
  197. -- text size: 8
  198. -- style flags: 0
  199. -- line height: 10
  200. -- part name: V1
  201. ----- HyperTalk script -----
  202. on mouseUp
  203.   if 3 = 4 then
  204.   end if
  205. end mouseUp
  206.  
  207.  
  208.  
  209.  
  210. -- part 9 (field)
  211. -- low flags: 01
  212. -- high flags: 0002
  213. -- rect: left=272 top=262 right=274 bottom=310
  214. -- title width / last selected line: 0
  215. -- icon id / first selected line: 0 / 0
  216. -- text alignment: 65535
  217. -- font id: 3
  218. -- text size: 8
  219. -- style flags: 0
  220. -- line height: 10
  221. -- part name: V2
  222. ----- HyperTalk script -----
  223. on mouseUp
  224.   if 3 = 4 then
  225.   end if
  226. end mouseUp
  227.  
  228.  
  229.  
  230.  
  231. -- part 11 (button)
  232. -- low flags: 00
  233. -- high flags: 2000
  234. -- rect: left=225 top=283 right=297 bottom=243
  235. -- title width / last selected line: 0
  236. -- icon id / first selected line: 15420 / 15420
  237. -- text alignment: 1
  238. -- font id: 0
  239. -- text size: 12
  240. -- style flags: 0
  241. -- line height: 16
  242. -- part name: 
  243. ----- HyperTalk script -----
  244. on mouseUp
  245.   lock screen
  246.   go prev
  247.   unlock screen with wipe right
  248. end mouseUp
  249.  
  250.  
  251.  
  252. -- part 12 (button)
  253. -- low flags: 00
  254. -- high flags: 2000
  255. -- rect: left=257 top=283 right=297 bottom=275
  256. -- title width / last selected line: 0
  257. -- icon id / first selected line: 16560 / 16560
  258. -- text alignment: 1
  259. -- font id: 0
  260. -- text size: 12
  261. -- style flags: 0
  262. -- line height: 16
  263. -- part name: 
  264. ----- HyperTalk script -----
  265. on mouseUp
  266.   lock screen
  267.   go next
  268.   unlock screen with wipe left
  269. end mouseUp
  270.  
  271.  
  272. -- part 14 (field)
  273. -- low flags: 01
  274. -- high flags: 0000
  275. -- rect: left=242 top=82 right=103 bottom=369
  276. -- title width / last selected line: 0
  277. -- icon id / first selected line: 0 / 0
  278. -- text alignment: 65535
  279. -- font id: 174
  280. -- text size: 14
  281. -- style flags: 2304
  282. -- line height: 18
  283. -- part name: 
  284.  
  285.  
  286. -- part contents for card part 3
  287. ----- text -----
  288. 10
  289.  
  290. -- part contents for card part 4
  291. ----- text -----
  292. 0
  293.  
  294. -- part contents for card part 8
  295. ----- text -----
  296. 0
  297.  
  298. -- part contents for card part 9
  299. ----- text -----
  300. 0
  301.  
  302. -- part contents for card part 5
  303. ----- text -----
  304. 0
  305.  
  306. -- part contents for card part 6
  307. ----- text -----
  308. 10
  309.  
  310. -- part contents for card part 7
  311. ----- text -----
  312. 10
  313.  
  314. -- part contents for card part 14
  315. ----- text -----
  316. SERIES